﻿Public Class frmListaProfesores
    Private objProfesorLN As ProfesorLN
    Private Sub pCargarGrillas()
        Dim lProfesores As List(Of ProfesorEN)
        objProfesorLN = New ProfesorLN
        Dim i As Integer
        lProfesores = objProfesorLN.fBuscarProfesor()
        For i = 0 To lProfesores.Count - 1
            Me.dgvProfesores.Rows.Add(lProfesores.Item(i).NombreProfesor + " " + lProfesores.Item(i).ApePaternoProfesor + " " + lProfesores.Item(i).ApeMaternoProfesor)
        Next
    End Sub
    Private Sub frmListaProfesores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pCargarGrillas()
    End Sub
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub
End Class